home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / card_19771.txt < prev    next >
Text File  |  1990-08-14  |  12KB  |  551 lines
  1. -- card: 19771 from stack: in
  2. -- bmap block id: 25231
  3. -- flags: 4000
  4. -- background id: 19276
  5. -- name: Sort Order…
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global buttonNumber
  9.   put char 1 to 3 of the long date & "," & item 2 to 3 of the abbrev date into background field date
  10.   set hilite of background button buttonNumber to false
  11. end openCard
  12.  
  13. on closeCard
  14.   global buttonNumber
  15.   set hilite of background button buttonNumber to true
  16.   set the loc of card button "Area" to 313,105
  17.   set the loc of card button "Class Rank" to 313,123
  18.   set the loc of card button "Grade" to 313,141
  19.   set the loc of card button "Homeroom" to 313,159
  20.   set the loc of card button "Honor Roll" to 313,177
  21.   set the loc of card button "Sex" to 313,195
  22.   set the loc of card button "Student Name" to 199,105
  23.   set the loc of card button "Student Number" to 313,231
  24.   set the loc of card button "Zip Code" to 313,249
  25. end closeCard
  26.  
  27.  
  28. -- part 1 (button)
  29. -- low flags: 00
  30. -- high flags: 0000
  31. -- rect: left=0 top=0 right=342 bottom=512
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 0 / 0
  34. -- text alignment: 1
  35. -- font id: 0
  36. -- text size: 12
  37. -- style flags: 0
  38. -- line height: 16
  39. -- part name: 
  40.  
  41.  
  42. -- part 2 (button)
  43. -- low flags: 00
  44. -- high flags: 2000
  45. -- rect: left=147 top=280 right=298 bottom=205
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 0 / 0
  48. -- text alignment: 1
  49. -- font id: 0
  50. -- text size: 12
  51. -- style flags: 0
  52. -- line height: 16
  53. -- part name: OK
  54. ----- HyperTalk script -----
  55. on mouseUp
  56.   lock screen
  57.   put empty into sortBy
  58.   repeat with index = 5 to 13
  59.     if item 1 of the loc of card button id index < 256 then
  60.       put "St" & index after sortBy
  61.     end if
  62.   end repeat
  63.   go to card sortBy of this background
  64.   if the result is "No such card" then
  65.     pop card
  66.   else pop card into it
  67.   unlock screen
  68. end mouseUp
  69.  
  70.  
  71. -- part 3 (button)
  72. -- low flags: 00
  73. -- high flags: 2000
  74. -- rect: left=227 top=280 right=298 bottom=285
  75. -- title width / last selected line: 0
  76. -- icon id / first selected line: 0 / 0
  77. -- text alignment: 1
  78. -- font id: 0
  79. -- text size: 12
  80. -- style flags: 0
  81. -- line height: 16
  82. -- part name: Clear
  83. ----- HyperTalk script -----
  84. on mouseUp
  85.   lock screen
  86.   set the loc of card button "Area" to 313,105
  87.   set the loc of card button "Class Rank" to 313,123
  88.   set the loc of card button "Grade" to 313,141
  89.   set the loc of card button "Homeroom" to 313,159
  90.   set the loc of card button "Honor Roll" to 313,177
  91.   set the loc of card button "Sex" to 313,195
  92.   set the loc of card button "Student Name" to 313,213
  93.   set the loc of card button "Student Number" to 313,231
  94.   set the loc of card button "Zip Code" to 313,249
  95.   unlock screen
  96. end mouseUp
  97.  
  98.  
  99.  
  100. -- part 4 (button)
  101. -- low flags: 00
  102. -- high flags: 2000
  103. -- rect: left=307 top=280 right=298 bottom=365
  104. -- title width / last selected line: 0
  105. -- icon id / first selected line: 0 / 0
  106. -- text alignment: 1
  107. -- font id: 0
  108. -- text size: 12
  109. -- style flags: 0
  110. -- line height: 16
  111. -- part name: Cancel
  112. ----- HyperTalk script -----
  113. on mouseUp
  114.   lock screen
  115.   pop card
  116.   unlock screen
  117. end mouseUp
  118.  
  119.  
  120.  
  121. -- part 5 (button)
  122. -- low flags: 00
  123. -- high flags: 8002
  124. -- rect: left=263 top=97 right=113 bottom=363
  125. -- title width / last selected line: 0
  126. -- icon id / first selected line: 0 / 0
  127. -- text alignment: 0
  128. -- font id: 3
  129. -- text size: 10
  130. -- style flags: 0
  131. -- line height: 13
  132. -- part name: Area
  133. ----- HyperTalk script -----
  134. on mouseDown
  135.   repeat while the mouse is down
  136.     get the mouseLoc
  137.     if it is within "196,102,316,252" then set the loc of me to it
  138.   end repeat
  139. end mouseDown
  140.  
  141. on mouseUp
  142.   if item 1 of the loc of me > 256 then
  143.     set the loc of me to 313,105
  144.   else
  145.     put empty into buttonCount
  146.     repeat with index = 5 to 13
  147.       if item 1 of the loc of card button id index < 256 then
  148.         add 1 to buttonCount
  149.       end if
  150.     end repeat
  151.     set the loc of me to 199,((buttonCount * 18) + 87)
  152.   end if
  153. end mouseUp
  154.  
  155.  
  156.  
  157. -- part 6 (button)
  158. -- low flags: 00
  159. -- high flags: 8002
  160. -- rect: left=263 top=115 right=131 bottom=363
  161. -- title width / last selected line: 0
  162. -- icon id / first selected line: 0 / 0
  163. -- text alignment: 0
  164. -- font id: 3
  165. -- text size: 10
  166. -- style flags: 0
  167. -- line height: 13
  168. -- part name: Class Rank
  169. ----- HyperTalk script -----
  170. on mouseDown
  171.   repeat while the mouse is down
  172.     get the mouseLoc
  173.     if it is within "196,102,316,252" then set the loc of me to it
  174.   end repeat
  175. end mouseDown
  176.  
  177. on mouseUp
  178.   if item 1 of the loc of me > 256 then
  179.     set the loc of me to 313,123
  180.   else
  181.     put empty into buttonCount
  182.     repeat with index = 5 to 13
  183.       if item 1 of the loc of card button id index < 256 then
  184.         add 1 to buttonCount
  185.       end if
  186.     end repeat
  187.     set the loc of me to 199,((buttonCount * 18) + 87)
  188.   end if
  189. end mouseUp
  190.  
  191.  
  192.  
  193. -- part 7 (button)
  194. -- low flags: 00
  195. -- high flags: 8002
  196. -- rect: left=263 top=133 right=149 bottom=363
  197. -- title width / last selected line: 0
  198. -- icon id / first selected line: 0 / 0
  199. -- text alignment: 0
  200. -- font id: 3
  201. -- text size: 10
  202. -- style flags: 0
  203. -- line height: 13
  204. -- part name: Grade
  205. ----- HyperTalk script -----
  206. on mouseDown
  207.   repeat while the mouse is down
  208.     get the mouseLoc
  209.     if it is within "196,102,316,252" then set the loc of me to it
  210.   end repeat
  211. end mouseDown
  212.  
  213. on mouseUp
  214.   if item 1 of the loc of me > 256 then
  215.     set the loc of me to 313,141
  216.   else
  217.     put empty into buttonCount
  218.     repeat with index = 5 to 13
  219.       if item 1 of the loc of card button id index < 256 then
  220.         add 1 to buttonCount
  221.       end if
  222.     end repeat
  223.     set the loc of me to 199,((buttonCount * 18) + 87)
  224.   end if
  225. end mouseUp
  226.  
  227.  
  228.  
  229. -- part 8 (button)
  230. -- low flags: 00
  231. -- high flags: 8002
  232. -- rect: left=263 top=151 right=167 bottom=363
  233. -- title width / last selected line: 0
  234. -- icon id / first selected line: 0 / 0
  235. -- text alignment: 0
  236. -- font id: 3
  237. -- text size: 10
  238. -- style flags: 0
  239. -- line height: 13
  240. -- part name: Homeroom
  241. ----- HyperTalk script -----
  242. on mouseDown
  243.   repeat while the mouse is down
  244.     get the mouseLoc
  245.     if it is within "196,102,316,252" then set the loc of me to it
  246.   end repeat
  247. end mouseDown
  248.  
  249. on mouseUp
  250.   if item 1 of the loc of me > 256 then
  251.     set the loc of me to 313,159
  252.   else
  253.     put empty into buttonCount
  254.     repeat with index = 5 to 13
  255.       if item 1 of the loc of card button id index < 256 then
  256.         add 1 to buttonCount
  257.       end if
  258.     end repeat
  259.     set the loc of me to 199,((buttonCount * 18) + 87)
  260.   end if
  261. end mouseUp
  262.  
  263.  
  264.  
  265. -- part 9 (button)
  266. -- low flags: 00
  267. -- high flags: 8002
  268. -- rect: left=263 top=169 right=185 bottom=363
  269. -- title width / last selected line: 0
  270. -- icon id / first selected line: 0 / 0
  271. -- text alignment: 0
  272. -- font id: 3
  273. -- text size: 10
  274. -- style flags: 0
  275. -- line height: 13
  276. -- part name: Honor Roll
  277. ----- HyperTalk script -----
  278. on mouseDown
  279.   repeat while the mouse is down
  280.     get the mouseLoc
  281.     if it is within "196,102,316,252" then set the loc of me to it
  282.   end repeat
  283. end mouseDown
  284.  
  285. on mouseUp
  286.   if item 1 of the loc of me > 256 then
  287.     set the loc of me to 313,177
  288.   else
  289.     put empty into buttonCount
  290.     repeat with index = 5 to 13
  291.       if item 1 of the loc of card button id index < 256 then
  292.         add 1 to buttonCount
  293.       end if
  294.     end repeat
  295.     set the loc of me to 199,((buttonCount * 18) + 87)
  296.   end if
  297. end mouseUp
  298.  
  299.  
  300.  
  301. -- part 10 (button)
  302. -- low flags: 00
  303. -- high flags: 8002
  304. -- rect: left=263 top=187 right=203 bottom=363
  305. -- title width / last selected line: 0
  306. -- icon id / first selected line: 0 / 0
  307. -- text alignment: 0
  308. -- font id: 3
  309. -- text size: 10
  310. -- style flags: 0
  311. -- line height: 13
  312. -- part name: Sex
  313. ----- HyperTalk script -----
  314. on mouseDown
  315.   repeat while the mouse is down
  316.     get the mouseLoc
  317.     if it is within "196,102,316,252" then set the loc of me to it
  318.   end repeat
  319. end mouseDown
  320.  
  321. on mouseUp
  322.   if item 1 of the loc of me > 256 then
  323.     set the loc of me to 313,195
  324.   else
  325.     put empty into buttonCount
  326.     repeat with index = 5 to 13
  327.       if item 1 of the loc of card button id index < 256 then
  328.         add 1 to buttonCount
  329.       end if
  330.     end repeat
  331.     set the loc of me to 199,((buttonCount * 18) + 87)
  332.   end if
  333. end mouseUp
  334.  
  335.  
  336.  
  337. -- part 11 (button)
  338. -- low flags: 00
  339. -- high flags: 8002
  340. -- rect: left=149 top=97 right=113 bottom=249
  341. -- title width / last selected line: 0
  342. -- icon id / first selected line: 0 / 0
  343. -- text alignment: 0
  344. -- font id: 3
  345. -- text size: 10
  346. -- style flags: 0
  347. -- line height: 13
  348. -- part name: Student Name
  349. ----- HyperTalk script -----
  350. on mouseDown
  351.   repeat while the mouse is down
  352.     get the mouseLoc
  353.     if it is within "196,102,316,252" then set the loc of me to it
  354.   end repeat
  355. end mouseDown
  356.  
  357. on mouseUp
  358.   if item 1 of the loc of me > 256 then
  359.     set the loc of me to 313,213
  360.   else
  361.     put empty into buttonCount
  362.     repeat with index = 5 to 13
  363.       if item 1 of the loc of card button id index < 256 then
  364.         add 1 to buttonCount
  365.       end if
  366.     end repeat
  367.     set the loc of me to 199,((buttonCount * 18) + 87)
  368.   end if
  369. end mouseUp
  370.  
  371.  
  372.  
  373. -- part 12 (button)
  374. -- low flags: 00
  375. -- high flags: 8002
  376. -- rect: left=263 top=223 right=239 bottom=363
  377. -- title width / last selected line: 0
  378. -- icon id / first selected line: 0 / 0
  379. -- text alignment: 0
  380. -- font id: 3
  381. -- text size: 10
  382. -- style flags: 0
  383. -- line height: 13
  384. -- part name: Student Number
  385. ----- HyperTalk script -----
  386. on mouseDown
  387.   repeat while the mouse is down
  388.     get the mouseLoc
  389.     if it is within "196,102,316,252" then set the loc of me to it
  390.   end repeat
  391. end mouseDown
  392.  
  393. on mouseUp
  394.   if item 1 of the loc of me > 256 then
  395.     set the loc of me to 313,231
  396.   else
  397.     put empty into buttonCount
  398.     repeat with index = 5 to 13
  399.       if item 1 of the loc of card button id index < 256 then
  400.         add 1 to buttonCount
  401.       end if
  402.     end repeat
  403.     set the loc of me to 199,((buttonCount * 18) + 87)
  404.   end if
  405. end mouseUp
  406.  
  407.  
  408.  
  409. -- part 13 (button)
  410. -- low flags: 00
  411. -- high flags: 8002
  412. -- rect: left=263 top=241 right=257 bottom=363
  413. -- title width / last selected line: 0
  414. -- icon id / first selected line: 0 / 0
  415. -- text alignment: 0
  416. -- font id: 3
  417. -- text size: 10
  418. -- style flags: 0
  419. -- line height: 13
  420. -- part name: Zip Code
  421. ----- HyperTalk script -----
  422. on mouseDown
  423.   repeat while the mouse is down
  424.     get the mouseLoc
  425.     if it is within "196,102,316,252" then set the loc of me to it
  426.   end repeat
  427. end mouseDown
  428.  
  429. on mouseUp
  430.   if item 1 of the loc of me > 256 then
  431.     set the loc of me to 313,249
  432.   else
  433.     put empty into buttonCount
  434.     repeat with index = 5 to 13
  435.       if item 1 of the loc of card button id index < 256 then
  436.         add 1 to buttonCount
  437.       end if
  438.     end repeat
  439.     set the loc of me to 199,((buttonCount * 18) + 87)
  440.   end if
  441. end mouseUp
  442.  
  443.  
  444.  
  445. -- part contents for background part 1
  446. ----- text -----
  447. 99 Students
  448.  
  449. -- part contents for background part 3
  450. ----- text -----
  451. 47
  452. 80
  453. 53
  454. 54
  455. 52
  456. 102
  457. 48
  458. 13
  459. 94
  460. 93
  461. 103
  462. 104
  463. 44
  464.  
  465.  
  466.  
  467.  
  468.  
  469. -- part contents for background part 4
  470. ----- text -----
  471. Abrosimoff, Michael John
  472. Adams, Bryan
  473. Alexander, Rick
  474. Alexander, Susan
  475. Allsop, Blair M.
  476. Azimov, Isaac
  477. Barisoff, Larissa
  478. Bunyan, Paul
  479. Burnyeat, Grant
  480. Caldwell, Brian
  481. Chalk, Patricia
  482. Collins, Bob
  483. Conkin, Elizabeth
  484.  
  485. -- part contents for background part 5
  486. ----- text -----
  487. 112
  488. 112
  489. 112
  490. 112
  491. 112
  492. N/A
  493. 112
  494. 112
  495. 112
  496. 112
  497. N/A
  498. N/A
  499. 112
  500.  
  501. -- part contents for background part 6
  502. ----- text -----
  503. 12
  504. 12
  505. 12
  506. 12
  507. 12
  508. 11
  509. 12
  510. 12
  511. 12
  512. 12
  513. 11
  514. 11
  515. 12
  516.  
  517. -- part contents for background part 7
  518. ----- text -----
  519. 0.000
  520. 0.000
  521. 0.000
  522. 0.000
  523. 0.000
  524. 1.000
  525. 0.000
  526. 0.000
  527. 0.000
  528. 0.000
  529. 0.000
  530. 0.000
  531. 0.000
  532.  
  533. -- part contents for background part 8
  534. ----- text -----
  535. 1
  536. 1
  537. 1
  538. 1
  539. 1
  540. 1
  541. 1
  542. 1
  543. 1
  544. 1
  545. 7
  546. 7
  547. 1
  548.  
  549. -- part contents for background part 2
  550. ----- text -----
  551. Mon, Aug 28, 1989